inherited frmConsultaMovimentacao: TfrmConsultaMovimentacao
  Left = 331
  Top = 183
  Width = 697
  Height = 540
  Caption = 'Consulta Movimenta'#231#227'o'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TcxPageControl
    Width = 681
    Height = 476
    ClientRectBottom = 476
    ClientRectRight = 681
    inherited tbsLista: TcxTabSheet
      inherited Panel1: TPanel
        Width = 681
        Height = 133
        object cbProdutor: TcxDBLookupComboBox
          Left = 8
          Top = 24
          DataBinding.DataField = 'PRODUTOR'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsProdutor
          TabOrder = 0
          Width = 320
        end
        object cxLabel2: TcxLabel
          Left = 8
          Top = 8
          Caption = 'Produtor'
          Transparent = True
        end
        object cbTerceiro: TcxDBLookupComboBox
          Left = 336
          Top = 24
          DataBinding.DataField = 'TERCEIRO'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsTerceiro
          TabOrder = 1
          Width = 320
        end
        object cxLabel5: TcxLabel
          Left = 336
          Top = 8
          Caption = 'Terceiro'
          Transparent = True
        end
        object cbPropriedade: TcxDBLookupComboBox
          Left = 8
          Top = 64
          DataBinding.DataField = 'PROPRIEDADE'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsPropriedade
          TabOrder = 2
          Width = 320
        end
        object cxLabel6: TcxLabel
          Left = 8
          Top = 48
          Caption = 'Propriedade'
          Transparent = True
        end
        object cbOperacao: TcxDBLookupComboBox
          Left = 336
          Top = 64
          DataBinding.DataField = 'OPERACAO'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsOperacoes
          TabOrder = 3
          Width = 321
        end
        object cxLabel19: TcxLabel
          Left = 336
          Top = 48
          Caption = 'Opera'#231#227'o'
          Transparent = True
        end
        object cxLabel3: TcxLabel
          Left = 336
          Top = 88
          Caption = 'Saldo Inicial'
          Transparent = True
        end
        object cbConta: TcxDBLookupComboBox
          Left = 8
          Top = 104
          DataBinding.DataField = 'CONTA'
          DataBinding.DataSource = dsFiltro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end
            item
              FieldName = 'CODIGO_STR'
            end>
          Properties.ListSource = dsConta
          TabOrder = 4
          Width = 320
        end
        object cxLabel7: TcxLabel
          Left = 8
          Top = 88
          Caption = 'Conta'
          Transparent = True
        end
        object cxLabel1: TcxLabel
          Left = 464
          Top = 88
          Caption = 'Ano Base'
          Transparent = True
        end
        object cxDBSpinEdit1: TcxDBSpinEdit
          Left = 464
          Top = 104
          DataBinding.DataField = 'ANO'
          DataBinding.DataSource = dsFiltro
          Properties.MinValue = 2000.000000000000000000
          TabOrder = 6
          Width = 121
        end
        object cxDBCalcEdit1: TcxDBCalcEdit
          Left = 336
          Top = 104
          DataBinding.DataField = 'SALDO'
          DataBinding.DataSource = dsFiltro
          TabOrder = 5
          Width = 121
        end
      end
      inherited frmTreePadrao: TPanel
        Top = 133
        Width = 681
        Height = 343
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 681
          Height = 343
          Align = alClient
          BevelOuter = bvNone
          Caption = 'Panel3'
          TabOrder = 0
          object Grid: TcxGrid
            Left = 0
            Top = 0
            Width = 681
            Height = 343
            Align = alClient
            TabOrder = 0
            OnEnter = GridEnter
            object cxGridDBTableView1: TcxGridDBTableView
              NavigatorButtons.ConfirmDelete = False
              NavigatorButtons.Insert.Visible = False
              NavigatorButtons.Append.Enabled = False
              NavigatorButtons.Delete.Visible = False
              NavigatorButtons.Edit.Visible = False
              NavigatorButtons.Post.Visible = False
              NavigatorButtons.Cancel.Visible = False
              NavigatorButtons.Refresh.Enabled = False
              NavigatorButtons.Refresh.Visible = False
              NavigatorButtons.SaveBookmark.Enabled = False
              NavigatorButtons.SaveBookmark.Visible = False
              NavigatorButtons.GotoBookmark.Visible = False
              DataController.DataSource = dsRegistro
              DataController.Summary.DefaultGroupSummaryItems = <>
              DataController.Summary.FooterSummaryItems = <>
              DataController.Summary.SummaryGroups = <>
              OptionsBehavior.IncSearch = True
              OptionsBehavior.NavigatorHints = True
              OptionsCustomize.ColumnHiding = True
              OptionsData.CancelOnExit = False
              OptionsData.Deleting = False
              OptionsData.DeletingConfirmation = False
              OptionsData.Editing = False
              OptionsData.Inserting = False
              OptionsSelection.CellSelect = False
              OptionsSelection.InvertSelect = False
              OptionsSelection.UnselectFocusedRecordOnExit = False
              OptionsView.Footer = True
              OptionsView.FooterAutoHeight = True
              OptionsView.GroupByBox = False
              OptionsView.GroupFooters = gfAlwaysVisible
              OptionsView.Indicator = True
              Preview.Visible = True
              Styles.StyleSheet = GridTableViewStyleSheetDevExpress
              object cxGridDBTableView1MES: TcxGridDBColumn
                DataBinding.FieldName = 'MES'
              end
              object cxGridDBTableView1CREDITO: TcxGridDBColumn
                DataBinding.FieldName = 'CREDITO'
                PropertiesClassName = 'TcxCurrencyEditProperties'
              end
              object cxGridDBTableView1DEBITO: TcxGridDBColumn
                DataBinding.FieldName = 'DEBITO'
                PropertiesClassName = 'TcxCurrencyEditProperties'
              end
              object cxGridDBTableView1SALDO: TcxGridDBColumn
                DataBinding.FieldName = 'SALDO'
                PropertiesClassName = 'TcxCurrencyEditProperties'
                Width = 107
              end
            end
            object cxGridLevel1: TcxGridLevel
              GridView = cxGridDBTableView1
            end
          end
        end
      end
    end
  end
  inherited cxImageList1: TcxImageList
    FormatVersion = 1
  end
  inherited GridPopupMenu: TcxGridPopupMenu
    Grid = Grid
  end
  inherited StyleRepository: TcxStyleRepository
    inherited GridTableViewStyleSheetDevExpress: TcxGridTableViewStyleSheet
      BuiltIn = True
    end
  end
  inherited cxPropertiesStore: TcxPropertiesStore
    Components = <
      item
        Component = Grid
        Properties.Strings = (
          'Align'
          'Anchors'
          'BevelEdges'
          'BevelInner'
          'BevelKind'
          'BevelOuter'
          'BevelWidth'
          'BorderStyle'
          'BorderWidth'
          'Constraints'
          'Cursor'
          'DragCursor'
          'DragKind'
          'DragMode'
          'DragOpening'
          'DragOpeningWaitTime'
          'Enabled'
          'Font'
          'Height'
          'HelpContext'
          'HelpKeyword'
          'HelpType'
          'Hint'
          'Left'
          'LevelTabs'
          'LookAndFeel'
          'Name'
          'ParentFont'
          'PopupMenu'
          'RootLevelOptions'
          'RootLevelStyles'
          'TabOrder'
          'TabStop'
          'Tag'
          'Top'
          'Visible'
          'Width')
      end
      item
        Component = cxGridDBTableView1
        Properties.Strings = (
          'BackgroundBitmaps'
          'DataController'
          'DateTimeHandling'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FilterBox'
          'Filtering'
          'FilterRow'
          'Name'
          'NavigatorButtons'
          'NewItemRow'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsData'
          'OptionsSelection'
          'OptionsView'
          'PopupMenu'
          'Preview'
          'Styles'
          'Synchronization'
          'Tag')
      end
      item
        Component = cxGridDBTableView1CREDITO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1DEBITO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1MES
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1SALDO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end>
  end
  inherited ActionList1: TActionList
    inherited ActFilter: TAction
      OnExecute = ActFilterExecute
    end
    object ActConfigRel: TAction
      Caption = 'Configurar Relat'#243'rio'
      ImageIndex = 26
      OnExecute = ActConfigRelExecute
    end
    object ActImprimir: TAction
      Caption = 'Imprimir'
      ImageIndex = 34
      OnExecute = ActImprimirExecute
    end
  end
  inherited dtEdit: TIBDataSet
    SelectSQL.Strings = (
      'select *  from pcd_lista_saldos(:produtor,'
      '                               :propriedade,'
      '                               :ano_base,'
      '                               :conta,'
      '                               :operacao,'
      '                               :saldo,'
      '                               :terceiro)')
    Active = True
    object dtEditMES: TIBStringField
      DisplayLabel = 'M'#234's'
      FieldName = 'MES'
      Origin = '"PCD_LISTA_SALDOS"."MES"'
      Size = 15
    end
    object dtEditCREDITO: TIBBCDField
      DisplayLabel = 'Cr'#233'dito'
      FieldName = 'CREDITO'
      Origin = '"PCD_LISTA_SALDOS"."CREDITO"'
      DisplayFormat = '###,#00.00'
      Precision = 18
      Size = 4
    end
    object dtEditDEBITO: TIBBCDField
      DisplayLabel = 'D'#233'dito'
      FieldName = 'DEBITO'
      Origin = '"PCD_LISTA_SALDOS"."DEBITO"'
      DisplayFormat = '###,#00.00'
      Precision = 18
      Size = 4
    end
    object dtEditSALDO: TIBBCDField
      DisplayLabel = 'Saldo'
      FieldName = 'SALDO'
      Origin = '"PCD_LISTA_SALDOS"."SALDO"'
      DisplayFormat = '###,#00.00'
      Precision = 18
      Size = 4
    end
    object dtEditCAB_PRODUTOR: TIBStringField
      FieldName = 'CAB_PRODUTOR'
      Origin = '"PCD_LISTA_SALDOS"."CAB_PRODUTOR"'
      Size = 50
    end
    object dtEditCAB_CONTA: TIBStringField
      FieldName = 'CAB_CONTA'
      Origin = '"PCD_LISTA_SALDOS"."CAB_CONTA"'
      Size = 50
    end
    object dtEditCAB_OPERACAO: TIBStringField
      FieldName = 'CAB_OPERACAO'
      Origin = '"PCD_LISTA_SALDOS"."CAB_OPERACAO"'
      Size = 50
    end
    object dtEditCAB_CNPJ: TIBStringField
      FieldName = 'CAB_CNPJ'
      Origin = '"PCD_LISTA_SALDOS"."CAB_CNPJ"'
    end
    object dtEditCAB_IE: TIBStringField
      FieldName = 'CAB_IE'
      Origin = '"PCD_LISTA_SALDOS"."CAB_IE"'
    end
    object dtEditCAB_PROPRIEDADE: TIBStringField
      FieldName = 'CAB_PROPRIEDADE'
      Origin = '"PCD_LISTA_SALDOS"."CAB_PROPRIEDADE"'
      Size = 50
    end
    object dtEditCAB_ANO: TIntegerField
      FieldName = 'CAB_ANO'
      Origin = '"PCD_LISTA_SALDOS"."CAB_ANO"'
    end
    object dtEditCAB_SALDO_INICIAL: TIBBCDField
      FieldName = 'CAB_SALDO_INICIAL'
      Origin = '"PCD_LISTA_SALDOS"."CAB_SALDO_INICIAL"'
      Precision = 18
      Size = 2
    end
    object dtEditCAB_TERCEIRO: TIBStringField
      FieldName = 'CAB_TERCEIRO'
      Origin = '"PCD_LISTA_SALDOS"."CAB_TERCEIRO"'
      Size = 50
    end
  end
  inherited dxBarManager: TdxBarManager
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    DockControlHeights = (
      0
      0
      0
      26)
    inherited dxBarManager1Bar1: TdxBar
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarDBNavFirst1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavPrior1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavNext1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavLast1'
        end
        item
          Visible = True
          ItemName = 'btnFilter'
        end
        item
          Visible = True
          ItemName = 'btnexportar'
        end
        item
          Visible = True
          ItemName = 'btnImprimir'
        end
        item
          Visible = True
          ItemName = 'btnConfig'
        end>
    end
    inherited btnImprimir: TdxBarButton
      Action = ActImprimir
    end
    object btnConfig: TdxBarButton
      Action = ActConfigRel
      Category = 1
    end
  end
  inherited mtbFiltro: TdxMemData
    Left = 632
    Top = 112
    object mtbFiltroPRODUTOR: TIntegerField
      FieldName = 'PRODUTOR'
      OnChange = mtbFiltroPRODUTORChange
    end
    object mtbFiltroPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
    end
    object mtbFiltroCONTA: TIntegerField
      FieldName = 'CONTA'
    end
    object mtbFiltroOPERACAO: TIntegerField
      FieldName = 'OPERACAO'
    end
    object mtbFiltroTERCEIRO: TIntegerField
      FieldName = 'TERCEIRO'
    end
    object mtbFiltroSALDO: TFloatField
      FieldName = 'SALDO'
      DisplayFormat = '###,#00.00'
    end
    object mtbFiltroANO: TIntegerField
      FieldName = 'ANO'
      OnChange = mtbFiltroANOChange
    end
  end
  inherited dsFiltro: TDataSource
    Left = 632
    Top = 140
  end
  object dsOperacoes: TDataSource
    DataSet = lstOperacoes
    Left = 632
    Top = 456
  end
  object dsPropriedade: TDataSource
    DataSet = lstPropriedade
    Left = 568
    Top = 456
  end
  object dsConta: TDataSource
    DataSet = lstConta
    Left = 600
    Top = 456
  end
  object lstConta: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstOperacoesBeforeOpen
    SQL.Strings = (
      'select distinct p.* from plano_conta p'
      'where'
      '('
      '    ('
      '      0 <'
      '         ('
      '          select count(*) from livro_caixa l where'
      
        '          l.conta = p.codigo and extract (year  from l.data_movi' +
        'mento) = :ano and l.produtor = :codigo'
      '          )'
      '    )'
      '    or'
      '    ('
      '    0 < (select count(*) from nota_fiscal n'
      
        '        where n.conta = p.codigo and extract (year  from n.dt_do' +
        'cto) = :ano and n.produtor = :codigo'
      '        )'
      '    )'
      '    or'
      '    ('
      '    0 < (select count(*) from nota_fiscal_pec n'
      
        '        where n.conta = p.codigo and extract (year  from n.dt_do' +
        'cto) = :ano and n.produtor = :codigo'
      '        )'
      '    )'
      ' )')
    Left = 600
    Top = 424
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object lstContaCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PLANO_CONTA"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstContaCODIGO_STR: TIBStringField
      FieldName = 'CODIGO_STR'
      Origin = '"PLANO_CONTA"."CODIGO_STR"'
      Size = 30
    end
    object lstContaCODIGO_PAI: TIntegerField
      FieldName = 'CODIGO_PAI'
      Origin = '"PLANO_CONTA"."CODIGO_PAI"'
    end
    object lstContaTRIBUTAVEL: TIBStringField
      FieldName = 'TRIBUTAVEL'
      Origin = '"PLANO_CONTA"."TRIBUTAVEL"'
      FixedChar = True
      Size = 1
    end
    object lstContaTIPO: TIBStringField
      FieldName = 'TIPO'
      Origin = '"PLANO_CONTA"."TIPO"'
      FixedChar = True
      Size = 1
    end
    object lstContaNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PLANO_CONTA"."NOME"'
      Size = 50
    end
  end
  object lstOperacoes: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstOperacoesBeforeOpen
    SQL.Strings = (
      'select distinct op.codigo, op.nome from operacoes op'
      'where'
      
        '(0 < (select count(*) from nota_fiscal nf where extract (year  f' +
        'rom nf.dt_docto) = :ano'
      'and nf.operacao = op.codigo and nf.produtor = :codigo)'
      ')'
      'or'
      
        '(0 < (select count(*) from nota_fiscal_pec nf where extract (yea' +
        'r  from nf.dt_docto) = :ano'
      'and nf.operacao = op.codigo and nf.produtor = :codigo)'
      ')'
      '')
    Left = 632
    Top = 424
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object lstOperacoesCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"OPERACOES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstOperacoesNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"OPERACOES"."NOME"'
      Size = 50
    end
  end
  object dsProdutor: TDataSource
    DataSet = lstProdutores
    Left = 504
    Top = 456
  end
  object dsTerceiro: TDataSource
    DataSet = lstTerceiro
    Left = 536
    Top = 456
  end
  object lstTerceiro: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstOperacoesBeforeOpen
    SQL.Strings = (
      'select distinct p.codigo, p.nome from produtores p'
      'where'
      '('
      '((0 < (select count(*) from nota_fiscal n'
      
        '        where n.terceiro = p.codigo and extract (year  from n.dt' +
        '_docto) = :ano and n.produtor = :codigo'
      '        )'
      '        )'
      '        )'
      'or'
      '((0 < (select count(*) from nota_fiscal_pec n'
      
        '        where n.terceiro = p.codigo and extract (year  from n.dt' +
        '_docto) = :ano and n.produtor = :codigo'
      '        )'
      '        )'
      '        )'
      ')')
    Left = 536
    Top = 424
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object lstTerceiroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstTerceiroNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
  end
  object lstPropriedade: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstOperacoesBeforeOpen
    SQL.Strings = (
      'select distinct pp.codigo, pp.nome from propriedade pp'
      'where  ('
      '        (0 < (select count(*) from nota_fiscal n'
      
        '        where n.propriedade = pp.codigo and extract (year  from ' +
        'n.dt_docto) = :ano and n.produtor = :codigo'
      '        ))'
      '        or'
      '        (0 < (select count(*) from nota_fiscal_pec n'
      
        '        where n.propriedade_1 = pp.codigo and extract (year  fro' +
        'm n.dt_docto) = :ano and n.produtor = :codigo'
      '        ))'
      '        )')
    Left = 568
    Top = 424
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ano'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object lstPropriedadeCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PROPRIEDADE"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstPropriedadeNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PROPRIEDADE"."NOME"'
      Size = 50
    end
  end
  object lstProdutores: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select p.codigo, p.nome from produtores p'
      'where p.produtor = '#39'S'#39' and p.ativo = '#39'S'#39
      '')
    Left = 504
    Top = 424
    object lstProdutoresCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstProdutoresNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
  end
  object edtRel: TIBDataSet
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    DeleteSQL.Strings = (
      'delete from impressoes_configuraveis'
      'where'
      '  CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'insert into impressoes_configuraveis'
      '  (CODIGO, CODIGO2, REL_IRRF)'
      'values'
      '  (:CODIGO, :CODIGO2, :REL_IRRF)')
    RefreshSQL.Strings = (
      'Select * '
      'from impressoes_configuraveis '
      'where'
      '  CODIGO = :CODIGO')
    SelectSQL.Strings = (
      
        'select p.codigo, p.REL_IRRF, p.codigo2 from impressoes_configura' +
        'veis p'
      'where p.codigo = :codigo')
    ModifySQL.Strings = (
      'update impressoes_configuraveis'
      'set'
      '  CODIGO = :CODIGO,'
      '  CODIGO2 = :CODIGO2,'
      '  REL_IRRF = :REL_IRRF'
      'where'
      '  CODIGO = :OLD_CODIGO')
    GeneratorField.Field = 'CODIGO'
    GeneratorField.Generator = 'GEN_ENDERECOS_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    Left = 128
    Top = 288
    object edtRelCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"IMPRESSOES_CONFIGURAVEIS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object edtRelCODIGO2: TIBStringField
      FieldName = 'CODIGO2'
      Origin = '"IMPRESSOES_CONFIGURAVEIS"."CODIGO2"'
      FixedChar = True
      Size = 1
    end
    object edtRelREL_IRRF: TMemoField
      FieldName = 'REL_IRRF'
      Origin = '"IMPRESSOES_CONFIGURAVEIS"."REL_IRRF"'
      ProviderFlags = [pfInUpdate]
      BlobType = ftMemo
      Size = 8
    end
  end
  object dtEditRel: TDataSource
    DataSet = edtRel
    Left = 96
    Top = 288
  end
  object ppLayoutRel: TppDBPipeline
    DataSource = dtEditRel
    UserName = 'ppEditRel'
    Left = 96
    Top = 259
    object ppLayoutRelppField1: TppField
      Alignment = taRightJustify
      FieldAlias = 'CODIGO'
      FieldName = 'CODIGO'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 0
    end
    object ppLayoutRelppField2: TppField
      FieldAlias = 'CODIGO2'
      FieldName = 'CODIGO2'
      FieldLength = 1
      DisplayWidth = 1
      Position = 1
    end
    object ppLayoutRelppField3: TppField
      FieldAlias = 'REL_IRRF'
      FieldName = 'REL_IRRF'
      FieldLength = 8
      DataType = dtMemo
      DisplayWidth = 10
      Position = 2
      Searchable = False
      Sortable = False
    end
  end
  object Designer_Rel: TppDesigner
    AllowDataSettingsChange = True
    Caption = 'Configurar DAP'
    DataSettings.SessionType = 'BDESession'
    DataSettings.AllowEditSQL = False
    DataSettings.DatabaseType = dtInterBase
    DataSettings.GuidCollationType = gcString
    DataSettings.IsCaseSensitive = True
    DataSettings.SQLType = sqSQL2
    DataSettings.UseDataDictionary = True
    Position = poScreenCenter
    Report = rptRel
    IniStorageType = 'IniFile'
    IniStorageName = '($WINSYS)\RBuilder.ini'
    WindowHeight = 400
    WindowLeft = 100
    WindowTop = 50
    WindowWidth = 600
    WindowState = wsMaximized
    Left = 96
    Top = 227
  end
  object rptRel: TppReport
    AutoStop = False
    DataPipeline = ppRel
    PassSetting = psTwoPass
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'A4'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.SaveDeviceSettings = False
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 297000
    PrinterSetup.mmPaperWidth = 210000
    PrinterSetup.PaperSize = 9
    Template.DatabaseSettings.DataPipeline = ppLayoutRel
    Template.DatabaseSettings.NameField = 'CODIGO2'
    Template.DatabaseSettings.TemplateField = 'REL_IRRF'
    Template.FileName = 'C:\Documents and Settings\Administrador\Desktop\REL_IRRF.rtm'
    Template.SaveTo = stDatabase
    Template.Format = ftASCII
    Units = utMillimeters
    DeviceType = 'Screen'
    EmailSettings.ReportFormat = 'PDF'
    LanguageID = 'Default'
    OutlineSettings.CreateNode = True
    OutlineSettings.CreatePageNodes = True
    OutlineSettings.Enabled = True
    OutlineSettings.Visible = True
    PDFSettings.EmbedFontOptions = [efUseSubset]
    PDFSettings.EncryptSettings.AllowCopy = True
    PDFSettings.EncryptSettings.AllowInteract = True
    PDFSettings.EncryptSettings.AllowModify = True
    PDFSettings.EncryptSettings.AllowPrint = True
    PDFSettings.EncryptSettings.Enabled = False
    PDFSettings.FontEncoding = feAnsi
    PreviewFormSettings.WindowState = wsMaximized
    PreviewFormSettings.ZoomSetting = zs100Percent
    RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET
    RTFSettings.DefaultFont.Color = clWindowText
    RTFSettings.DefaultFont.Height = -13
    RTFSettings.DefaultFont.Name = 'Arial'
    RTFSettings.DefaultFont.Style = []
    TextSearchSettings.DefaultString = '<Texto a localizar>'
    TextSearchSettings.Enabled = True
    Left = 64
    Top = 227
    Version = '12.03'
    mmColumnWidth = 197379
    DataPipelineName = 'ppRel'
    object ppTitleBand6: TppTitleBand
      PrintHeight = phDynamic
      mmBottomOffset = 0
      mmHeight = 23019
      mmPrintPosition = 0
      object ppLine1: TppLine
        UserName = 'Line1'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Pen.Width = 3
        Weight = 2.250000000000000000
        mmHeight = 2910
        mmLeft = 1058
        mmTop = 1588
        mmWidth = 194469
        BandType = 1
      end
      object ppLine2: TppLine
        UserName = 'Line2'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Pen.Width = 3
        Weight = 2.250000000000000000
        mmHeight = 1058
        mmLeft = 1058
        mmTop = 20638
        mmWidth = 194469
        BandType = 1
      end
      object ppLabel1: TppLabel
        UserName = 'Label1'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Caption = 'Relat'#243'rio de Movimenta'#231#227'o de Produtos'
        Ellipsis = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 4233
        mmLeft = 2117
        mmTop = 4233
        mmWidth = 67469
        BandType = 1
      end
      object ppSystemVariable2: TppSystemVariable
        UserName = 'SystemVariable2'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        VarType = vtDateTime
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        TextAlignment = taRightJustified
        Transparent = True
        mmHeight = 4191
        mmLeft = 160602
        mmTop = 4498
        mmWidth = 32554
        BandType = 1
      end
    end
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 8202
      mmPrintPosition = 0
      object ppLabel2: TppLabel
        UserName = 'Label2'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Caption = 'Mes'
        Ellipsis = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 4233
        mmLeft = 5027
        mmTop = 1058
        mmWidth = 6879
        BandType = 0
      end
      object ppLabel3: TppLabel
        UserName = 'Label3'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Caption = 'Credito'
        Ellipsis = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 4233
        mmLeft = 57150
        mmTop = 1058
        mmWidth = 12435
        BandType = 0
      end
      object ppLabel4: TppLabel
        UserName = 'Label4'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Caption = 'Debito'
        Ellipsis = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 4233
        mmLeft = 101600
        mmTop = 1058
        mmWidth = 11113
        BandType = 0
      end
      object ppLabel5: TppLabel
        UserName = 'Label5'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Caption = 'Saldo'
        Ellipsis = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 4233
        mmLeft = 141552
        mmTop = 1058
        mmWidth = 9790
        BandType = 0
      end
    end
    object ppDetailBand30: TppDetailBand
      Background1.Brush.Style = bsClear
      Background1.Gradient.EndColor = clWhite
      Background1.Gradient.StartColor = clWhite
      Background1.Gradient.Style = gsNone
      Background2.Brush.Style = bsClear
      Background2.Gradient.EndColor = clWhite
      Background2.Gradient.StartColor = clWhite
      Background2.Gradient.Style = gsNone
      PrintHeight = phDynamic
      mmBottomOffset = 0
      mmHeight = 3969
      mmPrintPosition = 0
      object ppDBText1: TppDBText
        UserName = 'DBText1'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        DataField = 'MES'
        DataPipeline = ppRel
        Ellipsis = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppRel'
        mmHeight = 3969
        mmLeft = 5027
        mmTop = 0
        mmWidth = 31221
        BandType = 4
      end
      object ppDBText2: TppDBText
        UserName = 'DBText2'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        DataField = 'CREDITO'
        DataPipeline = ppRel
        DisplayFormat = '#,0.00;-#,0.00'
        Ellipsis = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'ppRel'
        mmHeight = 3969
        mmLeft = 53181
        mmTop = 0
        mmWidth = 16404
        BandType = 4
      end
      object ppDBText3: TppDBText
        UserName = 'DBText3'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        DataField = 'DEBITO'
        DataPipeline = ppRel
        DisplayFormat = '#,0.00;-#,0.00'
        Ellipsis = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'ppRel'
        mmHeight = 3969
        mmLeft = 96309
        mmTop = 0
        mmWidth = 16404
        BandType = 4
      end
      object ppDBText4: TppDBText
        UserName = 'DBText4'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        DataField = 'SALDO'
        DataPipeline = ppRel
        DisplayFormat = '#,0.00;-#,0.00'
        Ellipsis = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'ppRel'
        mmHeight = 3969
        mmLeft = 134938
        mmTop = 0
        mmWidth = 16404
        BandType = 4
      end
    end
    object ppFooterBand5: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 11377
      mmPrintPosition = 0
      object ppLine3: TppLine
        UserName = 'Line3'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Pen.Width = 2
        Weight = 1.500000000000000000
        mmHeight = 1852
        mmLeft = 1058
        mmTop = 1852
        mmWidth = 194469
        BandType = 8
      end
      object ppLine4: TppLine
        UserName = 'Line4'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Pen.Width = 2
        Weight = 1.500000000000000000
        mmHeight = 1852
        mmLeft = 1058
        mmTop = 9525
        mmWidth = 194469
        BandType = 8
      end
      object ppSystemVariable1: TppSystemVariable
        UserName = 'SystemVariable1'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        VarType = vtPageSetDesc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        TextAlignment = taRightJustified
        Transparent = True
        mmHeight = 4191
        mmLeft = 175419
        mmTop = 3969
        mmWidth = 18542
        BandType = 8
      end
    end
    object ppSummaryBand2: TppSummaryBand
      PrintHeight = phDynamic
      AlignToBottom = False
      mmBottomOffset = 0
      mmHeight = 39688
      mmPrintPosition = 0
      object ppDBCalc2: TppDBCalc
        UserName = 'DBCalc2'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        DataField = 'CREDITO'
        DataPipeline = ppRel
        DisplayFormat = '#,0.00;-#,0.00'
        Ellipsis = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'ppRel'
        mmHeight = 4233
        mmLeft = 52388
        mmTop = 0
        mmWidth = 17198
        BandType = 7
      end
      object ppDBCalc3: TppDBCalc
        UserName = 'DBCalc3'
        HyperlinkColor = clBlue
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        DataField = 'DEBITO'
        DataPipeline = ppRel
        DisplayFormat = '#,0.00;-#,0.00'
        Ellipsis = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'ppRel'
        mmHeight = 4233
        mmLeft = 95515
        mmTop = 0
        mmWidth = 17198
        BandType = 7
      end
      object ppSubReport1: TppSubReport
        UserName = 'SubReport1'
        ExpandAll = False
        NewPrintJob = False
        OutlineSettings.CreateNode = True
        TraverseAllData = False
        DataPipelineName = 'ppApResultado'
        mmHeight = 5027
        mmLeft = 0
        mmTop = 31750
        mmWidth = 197300
        BandType = 7
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        mmMinHeight = 0
        object ppChildReport1: TppChildReport
          AutoStop = False
          DataPipeline = ppApResultado
          PrinterSetup.BinName = 'Default'
          PrinterSetup.DocumentName = 'Report'
          PrinterSetup.PaperName = 'A4'
          PrinterSetup.PrinterName = 'Default'
          PrinterSetup.SaveDeviceSettings = False
          PrinterSetup.mmMarginBottom = 6350
          PrinterSetup.mmMarginLeft = 6350
          PrinterSetup.mmMarginRight = 6350
          PrinterSetup.mmMarginTop = 6350
          PrinterSetup.mmPaperHeight = 297000
          PrinterSetup.mmPaperWidth = 210000
          PrinterSetup.PaperSize = 9
          Template.DatabaseSettings.DataPipeline = ppLayoutRel
          Template.DatabaseSettings.NameField = 'CODIGO2'
          Template.DatabaseSettings.TemplateField = 'REL_IRRF'
          Template.SaveTo = stDatabase
          Template.Format = ftASCII
          Units = utMillimeters
          Version = '12.03'
          mmColumnWidth = 0
          DataPipelineName = 'ppApResultado'
          object ppTitleBand1: TppTitleBand
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
          object ppDetailBand1: TppDetailBand
            Background1.Brush.Style = bsClear
            Background1.Gradient.EndColor = clWhite
            Background1.Gradient.StartColor = clWhite
            Background1.Gradient.Style = gsNone
            Background2.Brush.Style = bsClear
            Background2.Gradient.EndColor = clWhite
            Background2.Gradient.StartColor = clWhite
            Background2.Gradient.Style = gsNone
            mmBottomOffset = 0
            mmHeight = 148432
            mmPrintPosition = 0
            object ppLabel6: TppLabel
              UserName = 'Label6'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'APURA'#199#195'O DO RESULTADO TRIBUT'#193'VEL'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold, fsUnderline]
              Transparent = True
              mmHeight = 4233
              mmLeft = 62177
              mmTop = 9525
              mmWidth = 73237
              BandType = 4
            end
            object ppLabel7: TppLabel
              UserName = 'Label7'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'Receita Bruta Total.......................................(+)'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 48154
              mmTop = 17198
              mmWidth = 81227
              BandType = 4
            end
            object ppLabel8: TppLabel
              UserName = 'Label8'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'Despesas de Custeio/Investimento................(-)'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 48154
              mmTop = 23813
              mmWidth = 78317
              BandType = 4
            end
            object ppLabel9: TppLabel
              UserName = 'Label9'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'RESULTADO..................................................(=)'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 48154
              mmTop = 30956
              mmWidth = 77258
              BandType = 4
            end
            object ppLabel10: TppLabel
              UserName = 'Label10'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'Prejuizo Anterior.............................................:'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 48154
              mmTop = 39158
              mmWidth = 79375
              BandType = 4
            end
            object ppLabel11: TppLabel
              UserName = 'Label101'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'RES. AP'#211'S COMPENSA'#199#195'O PREJU'#205'ZO...(=)'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 48154
              mmTop = 47361
              mmWidth = 74877
              BandType = 4
            end
            object ppLabel12: TppLabel
              UserName = 'Label12'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'APURA'#199#195'O DO RESULTADO TRIBUT'#193'VE'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold, fsUnderline]
              Transparent = True
              mmHeight = 4233
              mmLeft = 62177
              mmTop = 62177
              mmWidth = 70908
              BandType = 4
            end
            object ppDBText5: TppDBText
              UserName = 'DBText5'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              DataField = 'CREDITO'
              DataPipeline = ppApResultado
              DisplayFormat = '#,0.00;-#,0.00'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              ParentDataPipeline = False
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppApResultado'
              mmHeight = 4233
              mmLeft = 133086
              mmTop = 17198
              mmWidth = 17198
              BandType = 4
            end
            object ppDBText6: TppDBText
              UserName = 'DBText6'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              DataField = 'DEBITO'
              DataPipeline = ppApResultado
              DisplayFormat = '#,0.00;-#,0.00'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              ParentDataPipeline = False
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppApResultado'
              mmHeight = 4233
              mmLeft = 133086
              mmTop = 23813
              mmWidth = 17198
              BandType = 4
            end
            object ppDBText7: TppDBText
              UserName = 'DBText7'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              DataField = 'SALDO'
              DataPipeline = ppApResultado
              DisplayFormat = '#,0.00;-#,0.00'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              ParentDataPipeline = False
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppApResultado'
              mmHeight = 4233
              mmLeft = 133086
              mmTop = 30956
              mmWidth = 17198
              BandType = 4
            end
            object ppDBText8: TppDBText
              UserName = 'DBText8'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              DataField = 'PREJUIZO'
              DataPipeline = ppApResultado
              DisplayFormat = '#,0.00;-#,0.00'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              ParentDataPipeline = False
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppApResultado'
              mmHeight = 4233
              mmLeft = 133086
              mmTop = 39158
              mmWidth = 17198
              BandType = 4
            end
            object ppDBText9: TppDBText
              UserName = 'DBText9'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              DataField = 'SALDO_APOS_PREJUIZO'
              DataPipeline = ppApResultado
              DisplayFormat = '#,0.00;-#,0.00'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              ParentDataPipeline = False
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppApResultado'
              mmHeight = 4233
              mmLeft = 133086
              mmTop = 47361
              mmWidth = 17198
              BandType = 4
            end
            object ppLabel13: TppLabel
              UserName = 'Label13'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'Resultado Tribut'#225'vel * Al'#237'quota de'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 48154
              mmTop = 74613
              mmWidth = 58208
              BandType = 4
            end
            object ppDBText10: TppDBText
              UserName = 'DBText10'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              DataField = 'ALIQUOTA'
              DataPipeline = ppApResultado
              DisplayFormat = '#,0.00;-#,0.00'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              ParentDataPipeline = False
              Transparent = True
              DataPipelineName = 'ppApResultado'
              mmHeight = 4233
              mmLeft = 108215
              mmTop = 74613
              mmWidth = 14817
              BandType = 4
            end
            object ppLabel14: TppLabel
              UserName = 'Label14'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'C'#193'LCULO DO IMPOSTO DE RENDA'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold, fsUnderline]
              Transparent = True
              mmHeight = 4233
              mmLeft = 62177
              mmTop = 97102
              mmWidth = 60621
              BandType = 4
            end
            object ppLabel15: TppLabel
              UserName = 'Label15'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'Resultado Tribut'#225'vel'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 46302
              mmTop = 108479
              mmWidth = 35306
              BandType = 4
            end
            object ppLabel16: TppLabel
              UserName = 'Label16'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'Imposto de Renda'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 46302
              mmTop = 115094
              mmWidth = 30903
              BandType = 4
            end
            object ppLabel17: TppLabel
              UserName = 'Label17'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'Parcela a Deduzir'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 46302
              mmTop = 122238
              mmWidth = 29549
              BandType = 4
            end
            object ppLabel18: TppLabel
              UserName = 'Label102'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Caption = 'IMPOSTO DE RENDA A PAGAR'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 46302
              mmTop = 130440
              mmWidth = 53086
              BandType = 4
            end
            object ppDBText11: TppDBText
              UserName = 'DBText11'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              DataField = 'SALDO_APOS_PREJUIZO'
              DataPipeline = ppApResultado
              DisplayFormat = '#,0.00;-#,0.00'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              ParentDataPipeline = False
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppApResultado'
              mmHeight = 4233
              mmLeft = 131234
              mmTop = 108479
              mmWidth = 17198
              BandType = 4
            end
            object ppDBText12: TppDBText
              UserName = 'DBText12'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              DataField = 'IMPOSTO_RENDA'
              DataPipeline = ppApResultado
              DisplayFormat = '#,0.00;-#,0.00'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              ParentDataPipeline = False
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppApResultado'
              mmHeight = 4233
              mmLeft = 131234
              mmTop = 115094
              mmWidth = 17198
              BandType = 4
            end
            object ppDBText13: TppDBText
              UserName = 'DBText13'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              DataField = 'PARCELA_REDUZIR'
              DataPipeline = ppApResultado
              DisplayFormat = '#,0.00;-#,0.00'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              ParentDataPipeline = False
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppApResultado'
              mmHeight = 4233
              mmLeft = 131234
              mmTop = 122238
              mmWidth = 17198
              BandType = 4
            end
            object ppDBText14: TppDBText
              UserName = 'DBText14'
              HyperlinkColor = clBlue
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              DataField = 'IMPOSTO_RENDA'
              DataPipeline = ppApResultado
              DisplayFormat = '#,0.00;-#,0.00'
              Ellipsis = False
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              ParentDataPipeline = False
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppApResultado'
              mmHeight = 4233
              mmLeft = 131234
              mmTop = 130440
              mmWidth = 17198
              BandType = 4
            end
          end
          object ppSummaryBand1: TppSummaryBand
            AlignToBottom = False
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
        end
      end
    end
    object raCodeModule1: TraCodeModule
      ProgramStream = {00}
    end
    object ppParameterList1: TppParameterList
    end
  end
  object ppRel: TppDBPipeline
    DataSource = dsRegistro
    UserName = 'Rel'
    Left = 64
    Top = 259
    object ppRelppField1: TppField
      FieldAlias = 'MES'
      FieldName = 'MES'
      FieldLength = 15
      DisplayWidth = 15
      Position = 0
    end
    object ppRelppField2: TppField
      Alignment = taRightJustify
      FieldAlias = 'CREDITO'
      FieldName = 'CREDITO'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 1
    end
    object ppRelppField3: TppField
      Alignment = taRightJustify
      FieldAlias = 'DEBITO'
      FieldName = 'DEBITO'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 2
    end
    object ppRelppField4: TppField
      Alignment = taRightJustify
      FieldAlias = 'SALDO'
      FieldName = 'SALDO'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 3
    end
    object ppRelppField5: TppField
      FieldAlias = 'CAB_PRODUTOR'
      FieldName = 'CAB_PRODUTOR'
      FieldLength = 50
      DisplayWidth = 50
      Position = 4
    end
    object ppRelppField6: TppField
      FieldAlias = 'CAB_CONTA'
      FieldName = 'CAB_CONTA'
      FieldLength = 50
      DisplayWidth = 50
      Position = 5
    end
    object ppRelppField7: TppField
      FieldAlias = 'CAB_OPERACAO'
      FieldName = 'CAB_OPERACAO'
      FieldLength = 50
      DisplayWidth = 50
      Position = 6
    end
    object ppRelppField8: TppField
      FieldAlias = 'CAB_CNPJ'
      FieldName = 'CAB_CNPJ'
      FieldLength = 20
      DisplayWidth = 20
      Position = 7
    end
    object ppRelppField9: TppField
      FieldAlias = 'CAB_IE'
      FieldName = 'CAB_IE'
      FieldLength = 20
      DisplayWidth = 20
      Position = 8
    end
    object ppRelppField10: TppField
      FieldAlias = 'CAB_PROPRIEDADE'
      FieldName = 'CAB_PROPRIEDADE'
      FieldLength = 50
      DisplayWidth = 50
      Position = 9
    end
    object ppRelppField11: TppField
      Alignment = taRightJustify
      FieldAlias = 'CAB_ANO'
      FieldName = 'CAB_ANO'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 10
    end
    object ppRelppField12: TppField
      Alignment = taRightJustify
      FieldAlias = 'CAB_SALDO_INICIAL'
      FieldName = 'CAB_SALDO_INICIAL'
      FieldLength = 2
      DataType = dtDouble
      DisplayWidth = 19
      Position = 11
    end
    object ppRelppField13: TppField
      FieldAlias = 'CAB_TERCEIRO'
      FieldName = 'CAB_TERCEIRO'
      FieldLength = 50
      DisplayWidth = 50
      Position = 12
    end
  end
  object ppApResultado: TppDBPipeline
    DataSource = dsApResultado
    UserName = 'ApResultado'
    Left = 33
    Top = 259
    object ppApResultadoppField1: TppField
      Alignment = taRightJustify
      FieldAlias = 'DEBITO'
      FieldName = 'DEBITO'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 0
    end
    object ppApResultadoppField2: TppField
      Alignment = taRightJustify
      FieldAlias = 'CREDITO'
      FieldName = 'CREDITO'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 1
    end
    object ppApResultadoppField3: TppField
      Alignment = taRightJustify
      FieldAlias = 'SALDO'
      FieldName = 'SALDO'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 2
    end
    object ppApResultadoppField4: TppField
      Alignment = taRightJustify
      FieldAlias = 'PREJUIZO'
      FieldName = 'PREJUIZO'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 3
    end
    object ppApResultadoppField5: TppField
      Alignment = taRightJustify
      FieldAlias = 'SALDO_APOS_PREJUIZO'
      FieldName = 'SALDO_APOS_PREJUIZO'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 4
    end
    object ppApResultadoppField6: TppField
      Alignment = taRightJustify
      FieldAlias = 'ALIQUOTA'
      FieldName = 'ALIQUOTA'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 5
    end
    object ppApResultadoppField7: TppField
      Alignment = taRightJustify
      FieldAlias = 'PARCELA_REDUZIR'
      FieldName = 'PARCELA_REDUZIR'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 6
    end
    object ppApResultadoppField8: TppField
      Alignment = taRightJustify
      FieldAlias = 'IMPOSTO_RENDA'
      FieldName = 'IMPOSTO_RENDA'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 7
    end
    object ppApResultadoppField9: TppField
      Alignment = taRightJustify
      FieldAlias = 'IMPOSTO_PAGAR'
      FieldName = 'IMPOSTO_PAGAR'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 8
    end
    object ppApResultadoppField10: TppField
      Alignment = taRightJustify
      FieldAlias = 'ARBITRAMENTO'
      FieldName = 'ARBITRAMENTO'
      FieldLength = 4
      DataType = dtDouble
      DisplayWidth = 19
      Position = 9
    end
  end
  object dtApResultado: TIBDataSet
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    DeleteSQL.Strings = (
      'delete from impressoes_configuraveis'
      'where'
      '  CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'insert into impressoes_configuraveis'
      '  (CODIGO, CODIGO2, DAP)'
      'values'
      '  (:CODIGO, :CODIGO2, :DAP)')
    RefreshSQL.Strings = (
      
        'select p.codigo, p.dap, p.codigo2 from impressoes_configuraveis ' +
        'p'
      'where p.codigo = :codigo')
    SelectSQL.Strings = (
      'select * from PCD_IRRF_APURACAO_RESULTADO(:produtor,'
      '                               :propriedade,'
      '                               :ano_base,'
      '                               :conta,'
      '                               :operacao,'
      '                               :saldo,'
      '                               :terceiro)'
      '')
    ModifySQL.Strings = (
      'update impressoes_configuraveis'
      'set'
      '  CODIGO = :CODIGO,'
      '  CODIGO2 = :CODIGO2,'
      '  DAP = :DAP'
      'where'
      '  CODIGO = :OLD_CODIGO')
    GeneratorField.ApplyEvent = gamOnPost
    Active = True
    Left = 128
    Top = 320
    object dtApResultadoDEBITO: TIBBCDField
      FieldName = 'DEBITO'
      Origin = '"PCD_IRRF_APURACAO_RESULTADO"."DEBITO"'
      Precision = 18
      Size = 4
    end
    object dtApResultadoCREDITO: TIBBCDField
      FieldName = 'CREDITO'
      Origin = '"PCD_IRRF_APURACAO_RESULTADO"."CREDITO"'
      Precision = 18
      Size = 4
    end
    object dtApResultadoSALDO: TIBBCDField
      FieldName = 'SALDO'
      Origin = '"PCD_IRRF_APURACAO_RESULTADO"."SALDO"'
      Precision = 18
      Size = 4
    end
    object dtApResultadoPREJUIZO: TIBBCDField
      FieldName = 'PREJUIZO'
      Origin = '"PCD_IRRF_APURACAO_RESULTADO"."PREJUIZO"'
      Precision = 18
      Size = 4
    end
    object dtApResultadoSALDO_APOS_PREJUIZO: TIBBCDField
      FieldName = 'SALDO_APOS_PREJUIZO'
      Origin = '"PCD_IRRF_APURACAO_RESULTADO"."SALDO_APOS_PREJUIZO"'
      Precision = 18
      Size = 4
    end
    object dtApResultadoALIQUOTA: TIBBCDField
      FieldName = 'ALIQUOTA'
      Origin = '"PCD_IRRF_APURACAO_RESULTADO"."ALIQUOTA"'
      Precision = 18
      Size = 4
    end
    object dtApResultadoPARCELA_REDUZIR: TIBBCDField
      FieldName = 'PARCELA_REDUZIR'
      Origin = '"PCD_IRRF_APURACAO_RESULTADO"."PARCELA_REDUZIR"'
      Precision = 18
      Size = 4
    end
    object dtApResultadoIMPOSTO_RENDA: TIBBCDField
      FieldName = 'IMPOSTO_RENDA'
      Origin = '"PCD_IRRF_APURACAO_RESULTADO"."IMPOSTO_RENDA"'
      Precision = 18
      Size = 4
    end
    object dtApResultadoIMPOSTO_PAGAR: TIBBCDField
      FieldName = 'IMPOSTO_PAGAR'
      Origin = '"PCD_IRRF_APURACAO_RESULTADO"."IMPOSTO_PAGAR"'
      Precision = 18
      Size = 4
    end
    object dtApResultadoARBITRAMENTO: TIBBCDField
      FieldName = 'ARBITRAMENTO'
      Origin = '"PCD_IRRF_APURACAO_RESULTADO"."ARBITRAMENTO"'
      Precision = 18
      Size = 4
    end
  end
  object dsApResultado: TDataSource
    DataSet = dtApResultado
    Left = 96
    Top = 320
  end
end
